home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok22.lha / Scroll / ScrollDemo.mod < prev    next >
Text File  |  1993-08-15  |  2KB  |  57 lines
  1. (******************************************************
  2.  *
  3.  * :Program.    ScrollDemo.mod
  4.  * :Author.     Holger Gzella
  5.  * :Address.    Freischöffenweg 12  D-4600 Dortmund 16
  6.  * :Phone.      (0231) 85 16 02
  7.  * :Version.    1.1
  8.  * :Date.       9/7/89  20:57:39 first Version by Holger Gzella
  9.  * :History.    V1.1 13-Jul-89 changed SetTaskPri(Me,127) to STP(Me,5) [fbs]
  10.  * :Copyright.  PD
  11.  * :Language.   Modula-2
  12.  * :Translator. M2Amiga 3.2d
  13.  * :Contents.   Demo for Scroll.def+.mod modules
  14.  * :Remark.     Simple scrolltext. Nothing exiting.
  15.  *
  16.  ******************************************************)
  17.  
  18. MODULE ScrollDemo;
  19.  
  20. FROM SYSTEM   IMPORT ADR;
  21. FROM Exec     IMPORT SetTaskPri,FindTask,Byte;
  22. FROM Graphics IMPORT RastPortPtr;
  23. FROM Windows  IMPORT OpenWindow,CloseWindow,WinGad,WinGadSet,Window;
  24. FROM Scroll   IMPORT ScrollX;
  25.  
  26. VAR Fenster: Window;
  27.     rp     : RastPortPtr;
  28.     Pri    : Byte;
  29.     String : ARRAY[0..60] OF CHAR;
  30.  
  31. BEGIN
  32.  
  33.   String:="Ein Demo für Scroll.def u. Scroll.mod ...                    ";
  34.  
  35.   (* Hier wird ein Kompromiß zwischen Multitasking und Geschwindigkeit
  36.      geschlossen: die eigene Taskpriorität wird heraufgesetzt. Das ist
  37.      zwar nicht ganz richtig, aber so einen Scrolltext läßt man ja
  38.      nicht ewig auf dem Bildschirm stehen, insofern ... *)
  39.  
  40.   Pri:=SetTaskPri(FindTask(NIL),5);
  41.  
  42.   OpenWindow(Fenster,0,100,640,25,"Scroll!",WinGadSet{moving,arranging});
  43.   rp:=Fenster^.rPort;
  44.  
  45.   (* Nun wird gescrollt. *)
  46.  
  47.   ScrollX(rp,638,4,-1,SIZE(String),10,String);
  48.  
  49.   CloseWindow(Fenster);
  50.  
  51.   (* Aufräumen muß sein! *)
  52.  
  53.   Pri:=SetTaskPri(FindTask(NIL),Pri); (* zurück auf alte Pri. *)
  54.  
  55. END ScrollDemo.
  56.  
  57.